﻿' error cesar
' Asegurarse de que la Clase Siempre Sea Publica.
' de otra forma nadie podra acceder a ella.
' antes
'Class Login
Public Class Login
    Dim IDusuario As String
    Dim usuario As String
    Dim pasword As String
    Dim fechadecaducidad As Date


    Public Property IDsusariologin As String
        Get
            Return IDusuario
        End Get
        Set(ByVal value As String)
            IDusuario = value
        End Set
    End Property

    Public Property usuariologin As String
        Get
            Return usuario
        End Get
        Set(ByVal value As String)
            usuario = value
        End Set
    End Property

    Public Property paswordlogin As String
        Get
            Return pasword
        End Get
        Set(ByVal value As String)
            pasword = value
        End Set
    End Property

    Public Property caducidadlogin As Date
        Get
            Return fechadecaducidad
        End Get
        Set(ByVal value As Date)
            fechadecaducidad = value
        End Set
    End Property

End Class